home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 020 / modula.arc / FUNCTION.DEF < prev    next >
Encoding:
Modula Definition  |  1986-03-26  |  1.6 KB  |  57 lines
  1.  
  2. DEFINITION MODULE Functions;
  3.  
  4. EXPORT QUALIFIED
  5.    CardMin, IntMin, RealMin, CardMax, IntMax, RealMax, RightPad, LeftPad,
  6.    ToSpaces, RightTrim, LeftTrim, LeftString, RightString, RepeatString,
  7.    StringReplace, MidString, RealSign, Round, RecHi, RecLo;
  8.  
  9.  
  10. PROCEDURE CardMin( a,b : CARDINAL) : CARDINAL;
  11.  
  12. PROCEDURE IntMin( a,b : INTEGER) : INTEGER;
  13.  
  14. PROCEDURE RealMin( a,b : REAL) : REAL;
  15.  
  16. PROCEDURE CardMax( a,b : CARDINAL) : CARDINAL;
  17.  
  18. PROCEDURE IntMax( a,b : INTEGER) : INTEGER;
  19.  
  20. PROCEDURE RealMax( a,b : REAL) : REAL;
  21.  
  22. PROCEDURE RightPad(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  23.                    i : CARDINAL);
  24.  
  25. PROCEDURE LeftPad(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  26.                    i : CARDINAL);
  27.  
  28. PROCEDURE ToSpaces(VAR dest : ARRAY OF CHAR; i : CARDINAL);
  29.  
  30. PROCEDURE RightTrim(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR);
  31.  
  32. PROCEDURE LeftTrim(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR);
  33.  
  34. PROCEDURE LeftString(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  35.                      i : CARDINAL);
  36.  
  37. PROCEDURE RightString(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  38.                      i : CARDINAL);
  39.  
  40. PROCEDURE RepeatString(VAR dest : ARRAY OF CHAR; ch : CHAR; i : CARDINAL);
  41.  
  42. PROCEDURE StringReplace(VAR dest : ARRAY OF CHAR; ch1,ch2 : CHAR);
  43.  
  44. PROCEDURE MidString(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  45.                     beg,len : CARDINAL);
  46.  
  47. PROCEDURE RealSign(x : REAL) : REAL;
  48.  
  49. PROCEDURE Round( x : REAL) : REAL;
  50.  
  51. PROCEDURE RecHi( recno, filelen : CARDINAL) : CARDINAL;
  52.  
  53. PROCEDURE RecLo( recno, filelen : CARDINAL) : CARDINAL;
  54.  
  55.  
  56. END Functions.
  57.